home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer 6.2
/
2000-12_-_Disc_6.2.iso
/
Patches
/
age2upa.exe
/
CABFILE
/
FILESUSA.CAB
/
Data
/
gamedata.drs
/
Unnamed File 000033.bina
< prev
next >
Wrap
Text File
|
1999-11-11
|
5KB
|
260 lines
;start the pass
(defrule
(difficulty <= easy)
(not (map-type fortress) )
=>
(enable-wall-placement 2)
(disable-self)
)
(defrule
(current-age > dark-age)
=>
(set-goal wall-build NOTICE)
(enable-timer t-tower 1)
(disable-self)
)
(defrule
(goal wall-build NOTICE)
(or
(or
(goal rush-control RUSHING)
(goal castle-attempt YES)
)
(or
(or
(goal 1 10)
(difficulty >= easy)
)
(map-type fortress)
)
)
=>
(set-goal wall-build NO)
(disable-self)
)
(defrule
(goal wall-build NOTICE)
=>
(set-goal wall-build YES)
(disable-self)
)
(defrule
(goal wall-build NO)
(or
(goal personality 1)
(goal personality 2)
)
(not (map-type fortress) )
=>
(set-goal wall-build YES)
(disable-self)
)
(defrule
(goal wall-build NO)
(current-age == imperial-age)
(nor
(map-type fortress)
(goal castle-attempt YES)
)
=>
(set-goal wall-build YES)
(disable-self)
)
(defrule
(goal wall-build YES)
(goal wonder-attempt POSSIBLE)
=>
(set-goal wall-build NO)
(disable-self)
)
(defrule
(goal wall-build NO)
(building-type-count-total wonder > 0)
(not (map-type fortress) )
=>
(set-goal wall-build YES)
)
;*****************************
;*****************************
;build walls
(defrule
(current-age == feudal-age)
(goal wall-build YES)
(can-build-wall-with-escrow 2 stone-wall-line)
(or
(can-afford-complete-wall 2 stone-wall-line)
(stone-amount > 125)
)
=>
(release-escrow stone)
(build-wall 2 stone-wall-line)
)
(defrule
(goal wall-build YES)
(can-build-wall-with-escrow 2 stone-wall-line)
(or
(can-afford-complete-wall 2 stone-wall-line)
(stone-amount > 300)
)
=>
(release-escrow stone)
(build-wall 2 stone-wall-line)
)
(defrule
(goal wall-build NO)
(building-type-count-total gate > 0)
(wall-completed-percentage 2 >= 75)
(wall-completed-percentage 2 < 100)
(can-build-wall-with-escrow 2 stone-wall-line)
=>
(release-escrow stone)
(build-wall 2 stone-wall-line)
)
(defrule
(goal wall-build YES)
(building-type-count-total gate < 4)
(can-build-gate-with-escrow 2)
=>
(release-escrow stone)
(build-gate 2)
)
(defrule
(goal wall-build YES)
(wall-completed-percentage 2 == 100)
(building-type-count-total gate == 0)
=>
(delete-building stone-wall-line)
(set-goal wall-build NO)
)
(defrule
(goal wall-build YES)
(wall-completed-percentage 2 == 100)
=>
(set-goal wall-build NO)
)
;*****************************
;bombard towers
(defrule
(can-build bombard-tower)
(not (goal wonder-attempt POSSIBLE) )
(or
(not (goal castle-attempt YES) )
(building-type-count-total bombard-tower < 2)
)
(or
(goal wall-build NO)
(timer-triggered t-tower)
)
=>
(build bombard-tower)
)
(defrule
(current-age == feudal-age)
(can-build watch-tower)
(or
(not (goal castle-attempt YES) )
(building-type-count-total watch-tower < 3)
)
(or
(goal wall-build NO)
(timer-triggered t-tower)
)
=>
(build watch-tower)
)
(defrule
(current-age == castle-age)
(can-build watch-tower-line)
(or
(not (goal castle-attempt YES) )
(building-type-count-total watch-tower-line < 6)
)
(not (research-available ri-guard-tower) )
(or
(goal wall-build NO)
(timer-triggered t-tower)
)
=>
(build watch-tower-line)
)
(defrule
(current-age == imperial-age)
(can-build watch-tower-line)
(nor
(can-build bombard-tower)
(goal wonder-attempt POSSIBLE)
)
(or
(not (goal castle-attempt YES) )
(building-type-count-total watch-tower-line < 9)
)
(nor
(research-available ri-guard-tower)
(research-available ri-keep)
)
(or
(goal wall-build NO)
(timer-triggered t-tower)
)
=>
(build watch-tower-line)
)
; post-wonder watch towers -- go nuts!
(defrule
(building-type-count-total wonder > 0)
(can-build-with-escrow bombard-tower)
=>
(release-escrow gold)
(release-escrow stone)
(build bombard-tower)
)
(defrule
(building-type-count-total wonder > 0)
(can-build-with-escrow watch-tower-line)
(nor
(research-available ri-guard-tower)
(research-available ri-keep)
)
=>
(release-escrow wood)
(release-escrow stone)
(build watch-tower-line)
)
(defrule
(timer-triggered t-tower)
(or
(can-afford-complete-wall 2 stone-wall-line)
(stone-amount > 500)
)
=>
(disable-timer t-tower)
(enable-timer t-tower 60)
)
(defrule
(timer-triggered t-tower)
=>
(disable-timer t-tower)
(enable-timer t-tower 300)
)